home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PPC1B3AA.ZIP / INPUTLN_.PPS < prev    next >
Text File  |  1996-07-29  |  1KB  |  46 lines

  1. ; Demonstration of the InputLine function (library INPUTLN.LIB)
  2.  
  3. #ppe
  4. #libpath ..\..\lib
  5. #use inputln
  6.  
  7. String Table(9)
  8. Int Line
  9.  
  10. AnsiPos 1, 1
  11. PrintLn "First Name  : ...................."
  12. PrintLn "Last Name   : ...................."
  13. PrintLn "Handle      : ...................."
  14. PrintLn "Address(1)  : ...................."
  15. PrintLn "Address(2)  : ...................."
  16. PrintLn "Address(3)  : ...................."
  17. PrintLn "Hobbies     : ...................."
  18. PrintLn "Years BBSing: ...................."
  19. PrintLn "CPU Type    : ...................."
  20. PrintLn "Modem Type  : ...................."
  21. PrintLn
  22. PrintLn "Keys: Up/Down/Enter/Esc"
  23.  
  24. Line = 1
  25.  
  26. :nextLine
  27. If (Line > 10) End
  28. If (Line < 1) Line = 1
  29.  
  30. Table(Line-1) = InputLine(15, Line, 20, Table(Line-1), Mask_Ascii(), False)
  31.  
  32. Select Case InputLineControl
  33.     Case 0, 3
  34.         Inc Line
  35.         Goto nextLine
  36.     Case 1
  37.         End
  38.     Case 2
  39.         Dec Line
  40.         Goto nextLine
  41. End Select
  42.  
  43. End ; should be unreachable
  44.  
  45.         
  46.